PROGRAM P
    VAR
        A : INT := 10;
        B : INT;
    END_VAR
    REPEAT
        B := B + 1;
        A := A - 1;
    UNTIL
        A > 0
    END_REPEAT;
END_PROGRAM